;;DECLARAMOS LA BASE DEL CONOCIMIENTO
(deffacts datos                                 (portatil (marca VAIO) (nombre VPCF11Z1E/BI) (precio 1358.97) (pantalla 16.4)(ram 8) (disco 320 )(procesador Intel_Core_i7-720QM)(velocidad 2800) (so Windows7_64bits) (garantia 1)(color negro)(duracionBateria 3)(tarjetaGrafica NVIDIA_GeForce_GT_330M)(memGrafica 1000) (seleccionado TRUE))
						(portatil (marca VAIO) (nombre VPCF11M1E/H) (precio 1078.99) (pantalla 16.4)(ram 6) (disco 500 )(procesador Intel_Core_i5-520M)(velocidad 2400) (so Windows7_64bits)(garantia 1)(color gris)(duracionBateria 3)(tarjetaGrafica NVIDIA_GeForce_GT_330M)(memGrafica 1000)(seleccionado TRUE))
						(portatil (marca VAIO) (nombre VPCEA1X5E) (precio 698.99) (pantalla 14)(ram 3) (disco 320 )(procesador Intel_Core_i3-330M)(velocidad 2130) (so Windows7_64bits)(garantia 1)(color azul)(duracionBateria 3.5)(tarjetaGrafica ATI_MobilityRadeonHD4570)(memGrafica 512)(seleccionado TRUE))
						(portatil (marca VAIO) (nombre VPCEA1X5E) (precio 1169) (pantalla 14)(ram 3) (disco 320 )(procesador Intel_Core_i5-520M)(velocidad 2400) (so Windows7_64bits)(garantia 2)(color verde)(duracionBateria 3.5)(tarjetaGrafica  ATI_MobilityRadeonHD4570)(memGrafica 512)(seleccionado TRUE))
						(portatil (marca VAIO) (nombre VPCEB1X5E) (precio 678.99) (pantalla 15.5)(ram 3) (disco 320 )(procesador Intel_Core_i5-520M)(velocidad 2260) (so Windows7_64bits)(garantia 1)(color blanco)(duracionBateria 3.5)(tarjetaGrafica Tarjeta_Grafica_Intel_HD )(memGrafica 256)(seleccionado TRUE))
						(portatil (marca VAIO) (nombre VPCEB1X5E) (precio 919.01) (pantalla 15.5)(ram 6) (disco 500 )(procesador Intel_Core_i5-520M)(velocidad 2400) (so Windows7_64bits)(garantia 1)(color negro)(duracionBateria 3)(tarjetaGrafica ATI_MobilityRadeon_HD5650)(memGrafica 1000)(seleccionado TRUE))
						(portatil (marca VAIO) (nombre VPCEC1X5E)  (precio 728.99) (pantalla 17.3)(ram 2) (disco 320 )(procesador Intel_Core_i3-330M)(velocidad 2130) (so Windows7_64bits)(garantia 1)(color blanco)(duracionBateria 2.5)(tarjetaGrafica ATI_MobilityRadeonHD5470)(memGrafica 512)(seleccionado TRUE))
						(portatil (marca VAIO) (nombre VPCEC1X5E)  (precio 1209) (pantalla 17.3)(ram 4) (disco 320 )(procesador Intel_Core_i5-520M)(velocidad 2400) (so Windows7_64bits)(garantia 2)(color negro)(duracionBateria 2.5)(tarjetaGrafica ATI_MobilityRadeon_HD5650)(memGrafica 1000)(seleccionado TRUE))
						(portatil (marca VAIO) (nombre VPCCW2S1E/R)  (precio 698.99) (pantalla 14)(ram 4) (disco 500 )(procesador Intel_Core_i5-520M)(velocidad 2530) (so Windows7_64bits)(garantia 1)(color verde)(duracionBateria 3.5)(tarjetaGrafica NVIDIA_GeForce_GT_310M)(memGrafica 512)(seleccionado TRUE))
						(portatil (marca VAIO) (nombre VPCS11X9E/B)  (precio 698.99) (pantalla 13.3)(ram 4) (disco 320 )(procesador Intel_Core_i3-330M)(velocidad 2530) (so Windows7_64bits)(garantia 1)(color verde)(duracionBateria 6)(tarjetaGrafica Tarjeta_Grfica_Intel_HD)(memGrafica 256)(seleccionado TRUE))
						(portatil (marca VAIO) (nombre VPCS11V9E/B)  (precio 698.99) (pantalla 13.3)(ram 4) (disco 500 )(procesador Intel_Core_i5-520M)(velocidad 2400) (so Windows7_64bits)(garantia 1)(color negro)(duracionBateria 5)(tarjetaGrafica NVIDIA_GeForce_GT_310M)(memGrafica 512)(seleccionado TRUE))
						(portatil (marca VAIO) (nombre VPCS11M1E/W)  (precio 698.99) (pantalla 13.3)(ram 4) (disco 320 )(procesador Intel_Core_i3-330M)(velocidad 2130) (so Windows7_64bits)(garantia 1)(color blanco)(duracionBateria 5)(tarjetaGrafica NVIDIA_GeForce_GT_310M)(memGrafica 512)(seleccionado TRUE))
						(portatil (marca VAIO) (nombre VPCS11V5E)  (precio 698.99) (pantalla 13.3)(ram 2) (disco 320 )(procesador Intel_Core_i5-520M)(velocidad 2400) (so Windows7_64bits)(garantia 1)(color blanco)(duracionBateria 5)(tarjetaGrafica Tarjeta_Grafica_Intel_HD)(memGrafica 256)(seleccionado TRUE))
						(portatil (marca VAIO) (nombre VPCS11V5E)  (precio 1259.01) (pantalla 13.3)(ram 4) (disco 500 )(procesador Intel_Core_i7-720QM)(velocidad 2660) (so Windows7_64bits)(garantia 1)(color plateado)(duracionBateria 5)(tarjetaGrafica NVIDIA_GeForce_GT_310M)(memGrafica 512)(seleccionado TRUE))
						(portatil (marca VAIO) (nombre VPCS11X5E)  (precio 1259.01) (pantalla 13.3)(ram 6) (disco 640 )(procesador Intel_Core_i5-520M)(velocidad 2660) (so Windows7_64bits)(garantia 1)(color blanco)(duracionBateria 5)(tarjetaGrafica NVIDIA_GeForce_GT_310M)(memGrafica 512)(seleccionado TRUE))
						
)

;;IMPRIME LAS CARACTERISTICAS DEL MODELO DADO
(defrule imprimir-caracteristicas-modelo
	?modelo <- (fase imprime-modelos)
=>
(bind ?result (run-query* obtener-portatiles2))
	(while (?result next)
		(bind ?port (?result getObject port))
		;;MOSTRAR CARACTERISTICAS
		(if (eq ?port.seleccionado TRUE) then
  		(printout t "--------------------------------------------------------------------------------" crlf) 
   		(printout t "--------------------------    PORTATIL RECOMENDADO    --------------------------" crlf) 
  		(printout t "--------------------------------------------------------------------------------" crlf) 
		(printout t "Portatil Vaio " ?port.nombre crlf)
		(printout t "Procesador: " ?port.procesador " a " ?port.velocidad " GHz" crlf)
		(printout t "Ram: " ?port.ram " GB" crlf)
		(printout t "Pantalla " ?port.pantalla " pulgadas" crlf)
		(printout t "Disco Duro de  " ?port.disco " GB" crlf)
		(printout t "Sistema Operativo: " ?port.so crlf)
		(printout t "Duraci�n de la bateria: " ?port.duracionBateria crlf)
		(printout t "Tarjeta Grafica: " ?port.tarjetaGrafica " de " ?port.memGrafica "Mb" crlf)
		(printout t "Color: " ?port.color crlf)
		(printout t "Garantia: " ?port.garantia crlf)
		(printout t "A partir de : " ?port.precio " euros" crlf)
		(printout t "" crlf)
		(printout t "" crlf)
		)
	)

	(retract ?modelo)
	
)

(defquery obtener-portatiles2
"Devuelve todos los PC's que hay en la BC"
?port<-(portatil)
)

(defquery obtener-portatiles
"Devuelve todos los PC's que hay en la BC"
?port<-(portatil (seleccionado TRUE))
)

(defquery obtener-criterios
"Devuelve todos los PC's que hay en la BC"
?crit<-(criterio)
)

(reset)
(run)
